home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / batchlib / malloc_init_batch.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-11-18  |  2.8 KB  |  85 lines
  1.  
  2. void malloc_init()
  3. {
  4.     int *ivector(),**imatrix();
  5.     double *dvector(),**dmatrix();
  6.     char **svector();
  7.     extern int func_on,var_dim,full_dim,func_dim,param_dim,func_dim_max,param_dim_max,all_dim_max,aux_max;
  8.     extern int *aux_on,*aux_win_mode,*aux_rescale,**aux_cur_index;
  9.     extern double *var_i,*var_polar_i,*var_min,*var_max,*var_polar_min,*var_polar_max;
  10.     extern double *v,*t_v,*t_vf,*t_va,*xoffset,*int_yscal,*period_len;
  11.     extern double *win_var_i,*win_var_f,*win_var_i_old;
  12.     extern double *func,*func_i,*func_f,*func_min,*func_max,*func_min_top,*func_max_top;
  13.     extern double *all_min,*all_max,*all_min_top,*all_max_top;
  14.     extern double *param,*param_min,*param_max,*param_min_top,*param_max_top;
  15.     extern double **aux_x_max,**aux_x_min;
  16.     extern char **var_label,**var_polar_label,**func_label,**param_label,**win_var_label,**all_label;
  17.  
  18.     full_dim = (func_on ? var_dim+func_dim : var_dim);
  19.  
  20.     var_i = dvector(0,var_dim -1);
  21.     var_polar_i = dvector(0,var_dim-1);
  22.     var_min = dvector(0,var_dim-1);
  23.     var_max = dvector(0,var_dim-1);
  24.     var_polar_min = dvector(0,var_dim-1);
  25.     var_polar_max = dvector(0,var_dim-1);
  26.  
  27.     win_var_i = dvector(0,var_dim -1);
  28.     win_var_i_old = dvector(0,var_dim -1);
  29.     win_var_f = dvector(0,var_dim -1);
  30.  
  31.     func = dvector(0,func_dim-1);
  32.     func_i = dvector(0,func_dim-1);
  33.     func_f = dvector(0,func_dim-1);
  34.     func_min = dvector(0,func_dim-1);
  35.     func_max = dvector(0,func_dim-1);
  36.  
  37.     /*
  38.      * In order not to waste the memory, free and reallocate memory
  39.      * dynamically when func_on is turned on by event handlers.
  40.      */
  41.     all_min = dvector(0,full_dim+param_dim-1);
  42.     all_max = dvector(0,full_dim+param_dim-1);
  43.     all_min_top = dvector(0,full_dim+param_dim-1);
  44.     all_max_top = dvector(0,full_dim+param_dim-1);
  45.     aux_x_min = dmatrix(0,full_dim+param_dim-1,0,aux_max-1);
  46.     aux_x_max = dmatrix(0,full_dim+param_dim-1,0,aux_max-1);
  47.  
  48.  
  49.     param = dvector(0,param_dim-1);
  50.     param_min = dvector(0,param_dim-1);
  51.     param_max = dvector(0,param_dim-1);
  52.     param_min_top = dvector(0,param_dim-1);
  53.     param_max_top = dvector(0,param_dim-1);
  54.  
  55.     period_len = dvector(0,full_dim+param_dim-1);
  56.  
  57.     v = dvector(0,var_dim-1);
  58.     t_v = dvector(0,var_dim-1);
  59.     t_vf = dvector(0,full_dim-1);
  60.     t_va = dvector(0,full_dim+param_dim-1);
  61.  
  62.     aux_win_mode = ivector(0,aux_max-1);
  63.     aux_on = ivector(0,aux_max-1);
  64.     aux_rescale = ivector(0,aux_max-1);
  65.     aux_cur_index = imatrix(0,aux_max-1,0,1);
  66.     
  67.     all_label = svector(0,all_dim_max-1);
  68.     win_var_label = svector(0,all_dim_max-1);
  69.     param_label = svector(0,param_dim_max-1);
  70.     func_label = svector(0,func_dim_max-1);
  71.     /* THe way it should be */
  72.     /*
  73.     all_label = svector(0,full_dim+param_dim-1);
  74.     win_var_label = svector(0,full_dim+param_dim-1);
  75.     param_label = svector(0,param_dim-1);
  76.     func_label = svector(0,func_dim-1);
  77.     */
  78.  
  79.     var_label = svector(0,var_dim-1);
  80.     var_polar_label = svector(0,var_dim-1);
  81.  
  82.     int_yscal = dvector(0,var_dim-1);
  83.     xoffset = dvector(0,var_dim-1); 
  84. }
  85.